home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libcruft / fftpack / cfftb.f next >
Text File  |  1996-07-19  |  260b  |  10 lines
  1.       subroutine cfftb (n,c,wsave)
  2.       implicit double precision (a-h,o-z)
  3.       dimension       c(1)       ,wsave(1)
  4.       if (n .eq. 1) return
  5.       iw1 = n+n+1
  6.       iw2 = iw1+n+n
  7.       call cfftb1 (n,c,wsave,wsave(iw1),wsave(iw2))
  8.       return
  9.       end
  10.